# Basic test for gotos/labels.

>skip # try basic skip
  0 10 "ERROR" -->
  !.
~:skip

fun:
  10
  ~:inFunc
  20
  >outOfFunc
  30
  0 10 "ERROR" -->
.

# loop made with gotos:
0 10 "test loop:" -->

10 # 10 iterations
~:loopStart
$0 !! ? >loopEnd .
  0 10 "- in loop" -->
  --
>loopStart
~:loopEnd

# try jump into a function

0 "try to jump inside a function: " -->

>inFunc
~:outOfFunc

20 = ?
  "OK" -->
;
  "ERROR" -->
.

10 ->
0 10 "all seems OK" -->
